home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Technology Seed / Mac Tech Seed May '96 / Mac Tech Seed May '96.toast / mac / Unity a3c3 / Install System Software / QuickDraw GX / QuickDraw™ GX Disk 1 / QuickDraw™ GX / QuickDraw™ GX.adf / psbt_-28345 < prev    next >
Encoding:
Text File  |  1995-08-28  |  1.5 KB  |  91 lines
  1. Ó/MakeFontClone {
  2. exch
  3. dup length 3 -1 roll add dict begin 
  4. {
  5. 1 index /FID ne 2 index /UniqueID ne and {def} {pop pop} ifelse
  6. } forall
  7. currentdict
  8. end
  9. } Bdef
  10. /MakeFramedFont {
  11. 1 index /FontType get 0 ne { 
  12. exch 2 MakeFontClone
  13. begin 
  14. /PaintType 2 def 
  15. 0 FontMatrix idtransform pop 
  16. /StrokeWidth Xdef
  17. currentdict
  18. end
  19. } { 
  20. exch 
  21. 0 MakeFontClone begin 
  22. FDepVector length array 
  23. 0 
  24. FDepVector { 
  25. 3 index 
  26. MakeFramedFont /FDepFramedFont
  27. exch definefont 
  28. 3 copy put pop 
  29. 1 add 
  30. } forall
  31. pop 
  32. /FDepVector Xdef 
  33. pop 
  34. currentdict 
  35. end
  36. } ifelse
  37. } Bdef
  38. /MakeVerticalFont {
  39. dup /WMode known {0} {1} ifelse MakeFontClone
  40. dup begin
  41. /WMode 1 def
  42. end
  43. } Bdef
  44. /BoldBuildChar {
  45. exch begin
  46. theChar 0 3 -1 roll put 
  47. baseFontDict setfont
  48. theChar stringwidth 
  49. dup 0 ne {yBold add} if 
  50. exch
  51. dup 0 ne {xBold add} if 
  52. exch
  53. gsave
  54. newpath
  55. 0 0 moveto
  56. theChar false GXCharPath 
  57. gsave
  58. xBold 2 mul yBold 2 mul scale 1 setlinewidth strokepath
  59. pathbbox
  60. grestore
  61. grestore
  62. setcachedevice
  63. newpath
  64. 0 0 moveto theChar true GXCharPath
  65. currentlinewidth 
  66. xBold 2 mul 
  67. yBold 2 mul
  68. scale
  69. 1 setlinewidth 
  70. CharPathCount 0 eq {stroke} {strokepath} ifelse
  71. 1 xBold 2 mul div 1 yBold 2 mul div scale 
  72. setlinewidth 
  73. 0 0 moveto
  74. theChar CharPathCount 0 eq {show} {true charpath} ifelse
  75. end
  76. } Bdef
  77. /MakeBoldFont {
  78. 20 dict dup begin 
  79. 4 1 roll 
  80. /yBold Xdef 
  81. /xBold Xdef
  82. /baseFontDict Xdef 
  83. /theChar 1 string def 
  84. baseFontDict /Encoding get /Encoding Xdef 
  85. /FontType 3 def 
  86. /FontMatrix [1 0 0 1 0 0] def 
  87. /FontBBox [0 0 0 0] def 
  88. /BuildChar /BoldBuildChar load def
  89. end
  90. } Bdef
  91.